#!/usr/bin/perl -wT
use CGI qw(:standard);
use lib '.';
use users;
use strict;
#print header;
#print start_html('Real Selector');
my %FORM;
foreach my $field (param()) 
{
    $FORM{$field} = param($field);
}
my $search=$FORM{realm};

my $cookie = cookie(-name=>'realm', -value=>$search, -expires=>'+7d');
#print end_html;
print redirect(-location=>"menu.cgi", -cookie=>$cookie);
